(if (> @user-level 0)
    (message "This script will install AssingPrefs in your system.\n"
	     "Since you are an advanced user, you will be asked "
	     "where the files will be copied.\n"
	     "You will also be able to alter your startup-sequence.\n")
)

(set @default-dest
    (askdir (prompt "Select a directory to copy AssignPrefs to")
	    (help @askdir-help)
	    (default "sys:prefs/")
	    (newpath)
    )
)

(if (= @pretend 0)
    (copyfiles
	(source "AssignPrefs")
	(dest @default-dest)
	(infos)
    )
)


(set samedir
	(askchoice
		(prompt "What shall I do next?")
		(help @askchoice-help)
		(choices "Install Doc File in same directory"
			 "Install Doc File in other directory"
			 "Don't install the doc file")
		(default 0)
	)
)

(select samedir
    (set pdir @default-dest)
    (set pdir
	(askdir (prompt "Select a directory to copy the docfile to")
		(help @askdir-help)
		(default @default-dest)
		(newpath)
	)
    )
    (set pdir "NIL:")
)

(if (<> pdir "NIL:")
    (if (= @pretend 0)
	(copyfiles
	    (source "docs/AssignPrefs.guide")
	    (dest   pdir)
	    (infos)
	)
    )
)


(set samedir
	(askchoice
		(prompt "What shall I do next?")
		(help @askchoice-help)
		(choices "Install source code in same directory"
			 "Install source code in other directory"
			 "Don't install the source code")
		(default 0)
	)
)

(select samedir
    (set pdir @default-dest)
    (set pdir
	(askdir (prompt "Select a directory to copy the source to")
		(help @askdir-help)
		(default @default-dest)
		(newpath)
	)
    )
    (set pdir "NIL:")
)

(if (<> pdir "NIL:")
    (if (= @pretend 0)
	(copyfiles
	    (source "source")
	    (dest   pdir)
	    (infos)
	    (all)
	)
    )
)

(set commandline (cat @default-dest "assignprefs use"))

(set sseq
    (askchoice
	(prompt "Do you want me to edit your startup-sequence")
	(help @askchoice-help)
	(choices    "No, don't touch it"
		    "Yes, please")
	(default 0)
    )
)

(if (= sseq 1)
    (startup "AssignPrefs"
	    (command commandline)
	    (help @startup-help)
	    (prompt "Are you sure you want me to edit your startup-sequence ?")
    )
)

